bscols(list(chk, 
       ggplotly(map1)), 
       dtx)